home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / x_lisp / hanoi.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1994-09-22  |  308 b   |  13 lines
  1. (defun setze (start ziel)
  2.  (list(list start ziel)))
  3.  
  4. (defun hanoi (start ziel hilf hoehe)
  5.  (cond ((= hoehe 1) (setze start ziel))
  6.        (t (append
  7.            (hanoi start hilf ziel (- hoehe 1))
  8.            (setze start ziel)
  9.            (hanoi hilf ziel start (- hoehe 1))
  10.           )
  11.        )
  12. ))
  13.